home *** CD-ROM | disk | FTP | other *** search
/ Merciful 1 / Merciful - Disc 1.iso / software / r / rexx_plus_compiler / rexxpluscompiler2.dms / in.adf / RexxPlPlot / Examples / examples.zoo / Example06.plot < prev    next >
Encoding:
Text File  |  1990-03-17  |  1.0 KB  |  49 lines
  1. /* Example06.plot - Displays the plotter symbols for PLPOIN */
  2. /* Modified for RexxPlPlot by Glenn M. Lewis - 9/12/89 */
  3.  
  4. address 'PlPlot'
  5. say 'Please be patient...'
  6.  
  7. /* Full sized page for display */
  8.  
  9.       'plstar(1,1);'
  10.       'pladv(0);'
  11.  
  12. /* Set up viewport and window */
  13.  
  14.       'plvpor(0.1,1.0,0.1,0.9);'
  15.       'plwind(0.0,1.0,0.0,1.3);'
  16.  
  17. /* Draw the grid using plbox */
  18.  
  19.       'plbox("bcgt",0.1,0,"bcgt",0.1,0);'
  20.  
  21. /* Write the digits below the frame */
  22.  
  23.       do i=0 to 9; 'plmtex("b",1.5,' 0.1*i+0.05 ',0.5,i);'; end i
  24.     
  25.       k=0
  26.       do i=0 to 12
  27.  
  28. /* Write the digits to the left of the frame */
  29.  
  30.         text = 10*i
  31.         'plmtex("lv",1.0,' 1.0-(2*i+1)/26.0 ',1.0,text);'
  32.         do j=0 to 9
  33.           x = 0.1*j+0.05
  34.           y = 1.25-0.1*i
  35.  
  36. /* Display the symbols (plpoin expects that x and y are arrays so */
  37. /* pass pointers) */
  38.  
  39.           if k<128 then 'plpoin(1,x,y,k);'
  40.           k=k+1
  41.         end j
  42.       end i
  43.  
  44.       'plmtex("t",1.5,0.5,0.5,"PLPLOT Example 6 - PLPOIN symbols");'
  45.       'plend();'
  46.  
  47. exit 0
  48.  
  49.